home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / text / xes.lha / XES / REXX / Quit.xdme < prev    next >
Text File  |  1995-08-01  |  721b  |  30 lines
  1. /* $VER: Quit.xdme 1.0 (01 Aug 1995) */
  2. /* Copyright © 1994 Fergus Duniho */
  3.  
  4. if ~show("L","rexxreqtools.library") then
  5.     if ~addlib("rexxreqtools.library", 0, -30) then exit
  6.  
  7. options results
  8. 'rxresult $fname'
  9. name = result
  10. 'rxresult $modified'
  11. m = result
  12. if m = 0 then do
  13.     tstr = ""
  14.     btext = "Quit" name || "?"
  15.     gadtxt = " _Quit | _Cancel "
  16. end
  17. else do
  18.     tstr = "*** Text has been modified!!! ***"
  19.     btext = "DO YOU REALLY WANT TO QUIT" name || "?"
  20.     gadtxt = " _Quit | _Save & Quit | _Cancel "
  21. end
  22. tagstr = "rt_reqpos=reqpos_centerscr"
  23. call rtezrequest(btext, gadtxt, tstr, tagstr)
  24. if rtresult = 2 then DO
  25.     rx "XES:Rexx/SaveFile"
  26. END
  27. if rtresult > 0 then do
  28.     'viewmode off modified off quit'
  29. end
  30.